﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities
Public Class PaisBL

    'Instanciamos la clase PaisDAO
    Dim pais As New PaisDAO


    Public Function ListarPaises() As DataSet

        Return pais.ListarPaises

    End Function

    Public Function BuscarPais(ByVal objeto As BE.PaisBE) As DataSet

        Return pais.BuscarPais(objeto)

    End Function


    Public Function InsertarPais(ByVal objeto As BE.PaisBE) As Boolean

        Return pais.InsertarPais(objeto)

    End Function

    Public Function ActualizarPais(ByVal objeto As BE.PaisBE) As Boolean

        Return pais.ActualizarPais(objeto)

    End Function

    Public Function EliminarPais(ByVal objeto As BE.PaisBE) As Boolean

        Return pais.EliminarPais(objeto)

    End Function

    Public Function ChapaError() As String

        Return pais.ChapaError

    End Function
End Class
